home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Netware Super Library
/
Netware Super Library.iso
/
zipfiles
/
p2z
/
segue.exe
/
SS_TXT.PRG
< prev
next >
Wrap
Text File
|
1991-05-20
|
6KB
|
89 lines
*.............................................................................
* Program Name: SS_TXT.PRG Copyright: HRF Associates, Inc.
* Date Created: 06/10/91 Language: Clipper
* Time Created: 11:55:01 Author: Bob Fogle
*.............................................................................
PRIVATE svc, mtitle, pgsel, asel, xx, yy, bxx, byy
PARAMETER asel
DO CASE
CASE asel = 2
mTITLE ="SEGUE SUPPLEMENT"
yy=5
xx=7
xxlen=13
yylen=70
SETCOLOR(if(iscolor()=.F.,NOCOLOR,"B/W"))
box1= shadowbox(xx-2,yy-2,xx+xxlen,yy+yylen+1,3,mTITLE)
spread("The SEGUE SUPPLEMENT consists of functions written in Clipper that ",xx++)
spread("incorporate the SEGUE API. They are available to substitute for ",xx++)
spread("functions found in other libraries and to show how easily programmers ",xx++)
spread("can use SEGUE to create their own network functions within Clipper. ",xx++)
spread(" ",xx++)
spread('Source code is provided for most SUPPLEMENT functions to registered ',xx++)
spread('users. New SUPPLEMENT functions will be available as they are created',xx++)
spread("via BBS or disk to newly registered users. ",xx++)
spread(" ",xx++)
spread("SUPPLEMENT functions for the BINDERY are the only functions shipped ",xx++)
spread("with SEGUE; primarily for demonstration purposes. ",xx++)
spread(" ",xx++)
SETCOLOR(if(iscolor()=.F.,NOCOLOR,"R/W"))
spread("Press any key to continue...",xx++)
inkey(0)
byebyebox(box1)
CASE asel = 3
mTITLE ="SEGUE SUBSTITUTIONS"
yy=5
xx=10
xxlen=9
yylen=70
SETCOLOR(if(iscolor()=.F.,NOCOLOR,"B/W"))
box1= shadowbox(xx-2,yy-2,xx+xxlen,yy+yylen+1,3,mTITLE)
spread("Many functions found in other network libraries can be substituted by ",xx++)
spread("by SEGUE directly. For example: ",xx++)
spread("Suppose your existing code has function N_STANO() from another library",xx++)
spread("and this function returns the logical station number of the current ",xx++)
spread("user. In this instance, the SEGUE API, CTNR(), can be substituted ",xx++)
spread('directly. Within an include file, under Clipper 5.0, the #command ',xx++)
spread('directive can be used to set code that has N_STANO() to CTNR() as ',xx++)
spread("follows: #command N_STAN() => CTNR() ",xx++)
SETCOLOR(if(iscolor()=.F.,NOCOLOR,"R/W"))
spread("Press any key to continue...",xx++)
inkey(0)
byebyebox(box1)
SETCOLOR(if(iscolor()=.F.,NOCOLOR,"B/W"))
yy=4
xx=4
xxlen=16
yylen=71
box1= shadowbox(xx-2,yy-2,xx+xxlen,yy+yylen+1,3,mTITLE)
spread("Other functions that can not be directly substituted by the SEGUE API ",xx++)
spread("can indirectly be substituted. For example: ",xx++)
spread("Suppose your existing code has function N_BANNR() from another library ",xx++)
spread("which enables or disables the printing of an identifying banner page at",xx++)
spread("the start of each spooled print job. A SUPPLEMENT function can be made",xx++)
spread('to create an equivalent. Then, within an include file, the #command or',xx++)
spread('#translate directive can be use to set code with N_BANNR equal to your ',xx++)
spread("newly created function. ",xx++)
spread("In this instance, only two lines of code would be needed as follows: ",xx++)
spread(" ",xx++)
spread("FUNCTION PRBANNER( cText ) // passed parameter is the banner text. ",xx++)
spread("RETURN PRJBDFS(,,,,,,cTEXT) // SEGUE API for setting only the banner. ",xx++)
spread(" ",xx++)
spread("Accordingly, you would set the include file as follows: ",xx++)
spread(" #translate N_BANNR(<cString>) => PRBANNER(<cString>) ",xx++)
SETCOLOR(if(iscolor()=.F.,NOCOLOR,"R/W"))
spread("Press any key to continue...",xx++)
inkey(0)
byebyebox(box1)
ENDCASE
set message to 23 center
RETURN